00100		DIMENSION NA(40,20),II(1000),JJ(1000),KK(1000),LL(1000)
00200	1	TYPE 15
00300	15	FORMAT(' I FORGOT EVERYTHING.'/)
00400	 	J=0
00500	
00600	2 	J=J+1
00700	199	IC=0
00800		CALL DPYCLR
00900		IQ=0
01000		IB=0
01100		IA=0
01200		IT=0
01300		DO 101 I=1,J
01400	101	NA(5,I)=0
01500	3	TYPE 4
01600	4	FORMAT(' ASK ME SOMETHING, OR TELL ME ANYTHING!'/)
01700	
01800	5	IF(J.GT.19)GO TO 1
01900	 	ACCEPT 6,(NA(I,J),I=11,40)
02000	6	FORMAT(30A1)
02100	
02200		IF(NA(11,J).EQ.'-')GO TO 1
02300		IF(NA(11,J).EQ.' '.AND.IC)GO TO 22
02400		IF(NA(11,J).EQ.' ')GO TO 3
02500		IF(NA(11,J).EQ.'+')GO TO 95
02600		IF(NA(11,J).EQ.'/')GO TO 200
02700		IF(NA(11,J).EQ.':')GO TO 201
02800		IF(NA(11,J).NE.'*')GO TO 59
02900		IF(.NOT.IC)GO TO 3
03000	  	J=J-1
03100	  	IF(IB)GO TO 99
03200	  	IF(IT.OR.IA)GO TO 79
03300		GO TO 47
03400	59	DO 7 I=11,40
03500	7	IF(NA(I+1,J).EQ.' '.AND.NA(I+2,J).EQ.' ')GO TO 8
03600		NA(1,J)=40
03700		GO TO 9
03800	200	J=J-1
03900	   	DO 202 I=1,40
04000	202	NA(I,J)=0
04100		GO TO 199
04200	201	J=J-1
04300		DO 210 I=1,J
04400	210	NA(5,I)=0
04500	   	IA=0
04600		IB=0
04700		IF(IQ)GO TO 205
04800		GO TO 80
04900	8	NA(1,J)=I
05000	
05100	9	NA(2,J)=-1
05200		IF(NA(NA(1,J),J).EQ.'?')NA(2,J)=0
05300		NA(6,J)=0
05400		IF(NA(11,J).NE.'%')GO TO 124
05500	177	TYPE 178
05600	178	FORMAT(' TYPE 5 LETTER NAME OF PICTURE.'/' OR:<CR> FOR NO PIC.'/)
05700		ACCEPT 179,NA(6,J)
05800	179	FORMAT(A5)
05900		IF(NA(6,J).EQ.'     ')GO TO 181
06000		IF(LOOKD(NA(6,J)))GO TO 182
06100		GO TO 177
06200	181	NA(6,J)=0
06300	182	DO 125 I=11,NA(1,J)
06400	125	NA(I,J)=NA(I+1,J)
06500		NA(1,J)=NA(1,J)-1
06600	124	NA(3,J)=J
06700		NA(4,J)=0
06800		IF(IC)GO TO 44
06900		IF(NA(2,J))GO TO 2
07000	
07100		IC=-1
07200	
07300		DO 52 MB=J-1,1,-1
07400		DO 51 I=11,NA(1,J)
07500	  	IF(NA(I,J).NE.NA(I,MB))GO TO 52
07600	51	CONTINUE
07700	
07800		NA(3,J)=NA(3,MB)
07900		IQ=-1
08000	205	IT=-1
08100	   	MA=J
08200		IF(NA(4,MB).LT.1)GO TO 79
08300		I=NA(4,MB)
08400		GO TO 25
08500	79	MA=MA-1
08600		IF(MA.LT.1.AND.IT)GO TO 80
08700		IF(MA.LT.1)GO TO 40
08800	  	IF(NA(3,J).EQ.NA(3,MA).AND.NA(2,MA).AND..NOT.NA(5,MA))GO TO 34
08900		GO TO 79
09000	52	CONTINUE
09100	
09200	80	IT=0 
09300		NL=NA(1,J)-9
09400	18	M=J
09500	40	IA=0
09600	47	M=M-1
09700		IF(M.LT.1)GO TO 75
09800		IF(NA(2,M).AND.NA(5,M))GO TO 47
09900		IF(NA(1,M)-10.LT.NL)GO TO 47
10000		DO 72 I=NA(1,J)-1,11+NL,-1
10100		IF(NA(I,J).EQ.' ')GO TO 72
10200		DO 73 K=NA(1,M),11+NL,-1
10300		DO 74 L=0,NL
10400	  	IF(NA(I-L,J).NE.NA(K-L,M))GO TO 73
10500	74	CONTINUE
10600		NA(3,J)=NA(3,M)
10700		IF(.NOT.NA(2,M))GO TO 69
10800		I=M
10900		GO TO 25
11000	73	CONTINUE
11100	72	CONTINUE
11200		GO TO 47
11300	75	NL=NL-1
11400		IF(NL.LT.4)GO TO 99
11500		GO TO 18
11600	
11700	69	IA=-1
11800		MA=J
11900		IF(NA(4,M).LT.1.OR.NA(5,NA(4,M)))GO TO 79
12000		I=NA(4,M)
12100		GO TO 25
12200	
12300	34	I=MA
12400	25	NA(5,I)=-1
12500		CALL DPYCLR
12600	  	TYPE 26,(NA(K,I),K=11,NA(1,I))
12700	26	FORMAT(1X30A1)
12800		IF(NA(6,I).EQ.0)GO TO 128
12900		CALL DPYSET(1,II,1000)
13000		CALL DPYSET(2,JJ,1000)
13100		CALL DPYSET(3,KK,1000)
13200		CALL DPYSET(4,LL,1000)
13300		CALL IFILE(1,NA(6,I))
13400		READ(1)NP
13500		READ(1)L,(II(K),K=1,L)
13600		IF(NP.GT.1)READ(1)L,(JJ(K),K=1,L)
13700		IF(NP.GT.2)READ(1)L,(KK(K),K=1,L)
13800		IF(NP.GT.3)READ(1)L,(LL(K),K=1,L)
13900		DO 307 K=1,NP
14000		CALL ACCPOG(K)
14100	307	CALL DPYOUT(K)
14200	128	TYPE 29
14300	29	FORMAT(/' IF I''M RIGHT,TYPE: <CR> .'/' IF I''M WRONG,TYPE:'
14400		1' ''*'' ,AND I''LL TRY AGAIN.'/' OR JUST TYPE IN THE ANSWER.'/)
14500		GO TO 28
14600	
14700	99	TYPE 27
14800	27	FORMAT(' I DON''T KNOW THE ANSWER, SO TYPE IT IN.'/)
14900		IB=-1
15000	
15100	28	J=J+1
15200		GO TO 5
15300	
15400	22	J=J-1
15500		IF(IB)GO TO 99
15600		IF(.NOT.IQ)GO TO 2
15700		NA(4,MB)=M
15800		IF(IT.OR.IA)NA(4,MB)=MA
15900		GO TO 199
16000	
16100	44	IF(IQ)GO TO 93
16200		NA(3,J-1)=J
16300		GO TO 2
16400	
16500	93	NA(3,J)=NA(3,MB)
16600		NA(4,MB)=J-1
16700		DO 94 K=1,40
16800	94	NA(K,J-1)=NA(K,J)
16900		NA(6,J)=0
17000		GO TO 199
17100	
17200	95	TYPE 37,J,IC,IQ,IT,IA,IB,MB,MA,M,NL
17300	37	FORMAT(3X'J'3X'IC'2X'IQ'2X'IT'2X'IA'2X'IB'2X'MB'
17400		1,2X'MA'2X' M'2X'NL'/1X10I4/)
17500		TYPE 88
17600	88	FORMAT(2X'LEN'2X'!!'1X'LIKE'1X'L2'1X'ANS'1X'PIC')
17700		DO 96 L=1,J
17800	96	TYPE 36,(NA(K,L),K=1,40)
17900	36	FORMAT(1X5I4,1XA5,2X4I1,2X30A1)
18000		GO TO 5
18100		END